home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
comm
/
cuos204.zip
/
INSTALL.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-11-16
|
2KB
|
73 lines
/*
Installation script for CU_SeeMe/2 Beta 1.0
Creates folder and various other objects
*/
Call Init
say 'Welcome to CU-SeeMe/2 Beta 1.0'
say ''
/*
if this is an update to an already existing installation
then we do not want to overwrite the reflist.ini
*/
if stream('reflist.ini','c','query exists') = "" then
'copy reflist.nin reflist.ini'
say 'please wait while I create WPS objects'
dir = directory()
id = dir"\readme.now"
exename = dir'\CUSEEME2.EXE'
exename2 = dir'\CUVID2.EXE'
call CreateObjects
call SysOpenObject "<CUSEEME2_FLDR>","DEFAULT","TRUE"
return
CreateObjects:
If SysCreateObject("WPFolder","CU-SeeMe/2 Beta 1.0 for Os/2 ","<WP_DESKTOP>","OBJECTID=<CUSEEME2_FLDR>") then
do
If SysCreateObject("WPProgram", "CU-SeeMe/2", "<CUSEEME2_FLDR>","EXENAME="exename";STARTUPDIR="dir";PROGTYPE=PM") Then
do
If SysCreateObject("WPProgram", "CUVid/2", "<CUSEEME2_FLDR>","EXENAME="exename2";STARTUPDIR="dir";PROGTYPE=PM") Then
do
Say 'Folder and program objects have been created'
call SysCreateObject "WPShadow", "READ.ME", "<CUSEEME2_FLDR>","SHADOWID="id
end
end
Else
Say 'Could not create program object'
End
Else
Say 'Could not create folder '
return
Init :
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
/* trace ?r' */
return